home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / exhelp.dir / 00036_Do Button.ls < prev    next >
Encoding:
Text File  |  1995-09-06  |  1.2 KB  |  45 lines
  1. on showPicture
  2.   global pictureButton, browserTopicsLine, printButton, textState, textButton, mapState, mapButton
  3.   activateButtonKeepActivated(pictureButton)
  4.   disableButton(printButton)
  5.   setButtonState(textState, textButton)
  6.   setButtonState(mapState, mapButton)
  7.   setButtonCursor(0, printButton)
  8.   showTopicPicture()
  9. end
  10.  
  11. on showMap
  12.   global mapButton, browserTopicsLine, printButton, textState, textButton, pictureState, pictureButton
  13.   activateButtonKeepActivated(mapButton)
  14.   disableButton(printButton)
  15.   setButtonState(textState, textButton)
  16.   setButtonState(pictureState, pictureButton)
  17.   setButtonCursor(0, printButton)
  18.   showTopicMap()
  19. end
  20.  
  21. on showText
  22.   global browserTopicsLine, printButton, mapState, mapButton, pictureState, pictureButton
  23.   enableButton(printButton)
  24.   setButtonState(mapState, mapButton)
  25.   setButtonState(pictureState, pictureButton)
  26.   setButtonCursor(1, printButton)
  27.   showTopicText()
  28. end
  29.  
  30. on showPrevPage
  31.   global pageUpButton
  32.   if isEnabled(pageUpButton) then
  33.     activateButtonKeepActivated(pageUpButton)
  34.     showPage(-1)
  35.   end if
  36. end
  37.  
  38. on showNextPage
  39.   global pageDownButton
  40.   if isEnabled(pageDownButton) then
  41.     activateButtonKeepActivated(pageDownButton)
  42.     showPage(1)
  43.   end if
  44. end
  45.